www.gusucode.com > 智睿学校网站管理系统 V2.20 > 智睿学校网站管理系统 V2.20\code\UserLogin.asp

    <!--#include file="Include/conn.asp"-->
<!--#include file="Include/Fun_SqlIn.Asp"-->
<!--#include file="Include/Md5.asp"-->
<%
if request.QueryString("Action")="logout" then
   session.contents.remove "zhi_rui_s_userID"
   session.contents.remove "zhi_rui_s_MemName"
   session.contents.remove "zhi_rui_s_mRealName"
   session.contents.remove "zhi_rui_s_mAddess"
   session.contents.remove "zhi_rui_s_mZip"
   session.contents.remove "zhi_rui_s_mTelephone"
   session.contents.remove "zhi_rui_s_mUmail"
   session.contents.remove "UserMoney"
   session.contents.remove "LastLoginIP"
   response.redirect "UserReg.asp"
   response.end
end if
dim LoginName,LoginPassword,VerifyCode,MemName,Password,GroupID,GroupName,Working,rs,sql,userid
dim mRealName,mAddess,mZip,mTelephone,mUmail
LoginName=StrReplace(trim(request.form("LoginName")))
LoginPassword=Md5(request.form("LoginPassword"))
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_s_Users where MemName='"&LoginName&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	Call Alert ("登录名不正确","-1")
    response.end
else
	userid=rs("id")
    MemName=rs("MemName")
    Password=rs("Password")
	mRealName=rs("RealName")
	mAddess=rs("Addess")
	mZip=rs("Zip")
	mTelephone=rs("Telephone")
	mUmail=rs("Umail")
    UserMoney=rs("UserMoney")
end if

if LoginPassword<>Password then
	Call Alert ("登录密码不正确","-1")
   response.end
end if 
 
if UCase(LoginName)=UCase(MemName) and LoginPassword=Password then
   rs("LastLoginTime")=now()
   rs("LastLoginIP")=Request.ServerVariables("Remote_Addr")
   rs("LoginTimes")=rs("LoginTimes")+1
   rs("UserMoney")=rs("UserMoney")+10
   rs.update
   rs.close
   set rs=nothing
   session("zhi_rui_s_userID")=userid
   session("zhi_rui_s_MemName")=MemName
   session("zhi_rui_s_mRealName")=mRealName
   session("zhi_rui_s_mAddess")=mAddess
   session("zhi_rui_s_mZip")=mZip
   session("zhi_rui_s_mTelephone")=mTelephone
   session("zhi_rui_s_mUmail")=mUmail
   session("UserMoney")=UserMoney+10
   session("LastLoginIP")=Request.ServerVariables("Remote_Addr")
   session.timeout=30
   response.redirect request.servervariables("http_referer")	
   response.end
end if
%>